home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ftpwit1a / ftpconne.frm < prev    next >
Text File  |  1999-09-10  |  6KB  |  194 lines
  1. VERSION 5.00
  2. Begin VB.Form ftpConnect 
  3.    Caption         =   "FTP transfer"
  4.    ClientHeight    =   2952
  5.    ClientLeft      =   2148
  6.    ClientTop       =   3144
  7.    ClientWidth     =   6264
  8.    ScaleHeight     =   2952
  9.    ScaleWidth      =   6264
  10.    Begin VB.CommandButton cmdExit 
  11.       Caption         =   "&Exit"
  12.       BeginProperty Font 
  13.          Name            =   "MS Sans Serif"
  14.          Size            =   7.8
  15.          Charset         =   0
  16.          Weight          =   700
  17.          Underline       =   0   'False
  18.          Italic          =   0   'False
  19.          Strikethrough   =   0   'False
  20.       EndProperty
  21.       Height          =   372
  22.       Left            =   3720
  23.       TabIndex        =   7
  24.       Top             =   2160
  25.       Width           =   1332
  26.    End
  27.    Begin VB.CommandButton cmdConnect 
  28.       Caption         =   "&Connect"
  29.       BeginProperty Font 
  30.          Name            =   "MS Sans Serif"
  31.          Size            =   7.8
  32.          Charset         =   0
  33.          Weight          =   700
  34.          Underline       =   0   'False
  35.          Italic          =   0   'False
  36.          Strikethrough   =   0   'False
  37.       EndProperty
  38.       Height          =   372
  39.       Left            =   1080
  40.       TabIndex        =   6
  41.       Top             =   2160
  42.       Width           =   1332
  43.    End
  44.    Begin VB.TextBox txtPassword 
  45.       Alignment       =   2  'Center
  46.       BeginProperty Font 
  47.          Name            =   "MS Sans Serif"
  48.          Size            =   9.6
  49.          Charset         =   0
  50.          Weight          =   700
  51.          Underline       =   0   'False
  52.          Italic          =   0   'False
  53.          Strikethrough   =   0   'False
  54.       EndProperty
  55.       Height          =   372
  56.       IMEMode         =   3  'DISABLE
  57.       Left            =   3240
  58.       PasswordChar    =   "*"
  59.       TabIndex        =   2
  60.       Top             =   1560
  61.       Width           =   2052
  62.    End
  63.    Begin VB.TextBox txtUser 
  64.       Alignment       =   2  'Center
  65.       BeginProperty Font 
  66.          Name            =   "MS Sans Serif"
  67.          Size            =   9.6
  68.          Charset         =   0
  69.          Weight          =   700
  70.          Underline       =   0   'False
  71.          Italic          =   0   'False
  72.          Strikethrough   =   0   'False
  73.       EndProperty
  74.       Height          =   372
  75.       Left            =   840
  76.       TabIndex        =   1
  77.       Top             =   1560
  78.       Width           =   2052
  79.    End
  80.    Begin VB.TextBox txtFTP 
  81.       Alignment       =   2  'Center
  82.       BeginProperty Font 
  83.          Name            =   "MS Sans Serif"
  84.          Size            =   9.6
  85.          Charset         =   0
  86.          Weight          =   700
  87.          Underline       =   0   'False
  88.          Italic          =   0   'False
  89.          Strikethrough   =   0   'False
  90.       EndProperty
  91.       Height          =   372
  92.       Left            =   1800
  93.       TabIndex        =   0
  94.       Top             =   480
  95.       Width           =   2652
  96.    End
  97.    Begin VB.Label Label3 
  98.       Alignment       =   2  'Center
  99.       Caption         =   "Password"
  100.       BeginProperty Font 
  101.          Name            =   "MS Sans Serif"
  102.          Size            =   7.8
  103.          Charset         =   0
  104.          Weight          =   700
  105.          Underline       =   0   'False
  106.          Italic          =   0   'False
  107.          Strikethrough   =   0   'False
  108.       EndProperty
  109.       Height          =   252
  110.       Left            =   3240
  111.       TabIndex        =   5
  112.       Top             =   1320
  113.       Width           =   2052
  114.    End
  115.    Begin VB.Label Label2 
  116.       Alignment       =   2  'Center
  117.       Caption         =   "Username"
  118.       BeginProperty Font 
  119.          Name            =   "MS Sans Serif"
  120.          Size            =   7.8
  121.          Charset         =   0
  122.          Weight          =   700
  123.          Underline       =   0   'False
  124.          Italic          =   0   'False
  125.          Strikethrough   =   0   'False
  126.       EndProperty
  127.       Height          =   252
  128.       Left            =   840
  129.       TabIndex        =   4
  130.       Top             =   1320
  131.       Width           =   2052
  132.    End
  133.    Begin VB.Label Label1 
  134.       Alignment       =   2  'Center
  135.       Caption         =   "FTP site"
  136.       BeginProperty Font 
  137.          Name            =   "MS Sans Serif"
  138.          Size            =   7.8
  139.          Charset         =   0
  140.          Weight          =   700
  141.          Underline       =   0   'False
  142.          Italic          =   0   'False
  143.          Strikethrough   =   0   'False
  144.       EndProperty
  145.       Height          =   252
  146.       Left            =   1800
  147.       TabIndex        =   3
  148.       Top             =   120
  149.       Width           =   2652
  150.    End
  151. End
  152. Attribute VB_Name = "ftpConnect"
  153. Attribute VB_GlobalNameSpace = False
  154. Attribute VB_Creatable = False
  155. Attribute VB_PredeclaredId = True
  156. Attribute VB_Exposed = False
  157. Option Explicit
  158.  
  159. Private Sub cmdConnect_Click()
  160.  
  161.  On Error GoTo errorhandler
  162.  
  163.  Dim varTemp As Variant
  164.  
  165.   With ftpList.Inet1
  166.    .URL = txtFTP.Text
  167.    .UserName = txtUser.Text
  168.    .Password = txtPassword.Text
  169.    .Execute , "DIR"
  170.  
  171.    varTemp = .GetChunk(1024)
  172.    Load ftpList
  173.    ftpList.Show
  174.    ftpList.subShowFiles (varTemp)
  175.    Unload Me
  176.   End With
  177.   
  178. errorhandler:
  179.  Select Case Err.Number
  180.  
  181.   Case 35764        '  Still executes last command
  182.    DoEvents
  183.    Resume
  184.    
  185.  End Select
  186. End Sub
  187.  
  188. Private Sub cmdExit_Click()
  189.  
  190.  Unload Me
  191.  End
  192.  
  193. End Sub
  194.